-- background: 10181 from stack: in
-- bmap block id: 11062
-- flags: 0000
-- background id: 0
-- name: Experiment 4


-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=38 right=69 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=428 top=119 right=150 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: parameter


-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=293 right=328 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  show card field "help"
  wait until the mouse is down
  hide card field "help"
end mouseUp


-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=428 top=160 right=289 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blurb
----- HyperTalk script -----
on mouseUp
  global cardClear4,dropHeight4

  if cardClear4 is true then runExperiment
  else
    clearCardGraphics
    set the loc of button "electromagnet" to 200,(271-dropHeight4)
    set the loc of button "ball" to 200,(300-dropHeight4)
    put "Press this field to trace the path of the ball." into me
    put true into cardClear4
    pass mouseUp
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=16 top=319 right=340 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  global ReturnCard
  go ReturnCard
end mouseUp